; Instrument autorevert-tests.el

diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index b378c9b8b0890890129b3b56f3063ff5a3f75740..9710600f1698615a77b92b8ca194fd3638e07a2e 100644 (file)
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -181,7 +181,10 @@ This expects `auto-revert--messages' to be bound by
             ;; modifying `before-revert-hook'.
             (add-hook
              'before-revert-hook
-             (lambda () (delete-file buffer-file-name))
+             (lambda ()
+               ;; Temporarily.
+               (message "%s deleted" buffer-file-name)
+               (delete-file buffer-file-name))
              nil t)
 
             (ert-with-message-capture auto-revert--messages